home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxtime6.zip / TIMESET.SLT < prev   
Text File  |  1991-10-03  |  13KB  |  423 lines
  1.  
  2. main()
  3. {
  4.     int count,hi_hour,lo_hour,hi_min,lo_min,hi_sec,lo_sec,local_hr,t;
  5.     int error, err_test, y1, y2, y3, y4, y5, day, month, year, timezone;
  6.     int julian1, julian2, julian3, julian4, julian5, julian6, julian7, julian8;
  7.     str utc_hour[3],slocal_hr[3],set_dos_time[20]="time ",set_dos_date[20]="date ";
  8.     str juldatestr[10] = " ";
  9.     str geordatestr[10] = " ";
  10.     str monthstr[3], daystr[3], yearstr[4];
  11.     str startdtmo[3], startdtdy[3], stopdtmo[3], stopdtdy[3];
  12.     int integerdate;
  13.  
  14. //************ TIME ZONE REFERENCE INFOMATION *********************************
  15.  
  16. //  ZONE   +13      GMT+13  +13
  17. //  ZONE   +13A   Mos+10  +13     MosS+10 +14    90/03/25:2   90/09/30:2
  18. //  ZONE   +1275  Chat.   +12.75 ChatS     +13.75 89/10/07:14  90/03/17:14
  19. //  ZONE   +12      GMT+12  +12
  20. //  ZONE   +12A   Mos+9   +12     MosS+9  +13    90/03/25:2   90/09/30:2
  21. //  ZONE   +12B   NZ      +12     NZ-S     +13    89/10/07:14  90/03/17:14
  22. //  ZONE   +11.5  Norf.I  +11.5
  23. //  ZONE   +11      GMT+11  +11
  24. //  ZONE   +11A   Mos+8   +10     MosS+8  +12    90/03/25:2   90/09/30:2
  25. //  ZONE   +11B   Vanu.   +11     VanuS     +12    89/09/23:14  90/03/23:14
  26. //  ZONE   +10.5  LHowe   +10.5  LHoweS  +11    89/10/28:16  90/03/03:16
  27. //  ZONE   +10      GMT+10  +10
  28. //  ZONE   +10A   Mos+7   +10     MosS+7  +11    90/03/25:2   90/09/30:2
  29. //  ZONE   +10B   NSW      +10     NSW-S     +11    89/10/28:16  90/03/03:16
  30. //  ZONE   +10C   Vict.   +10     VictS     +11    89/10/28:16  90/03/17:16
  31. //  ZONE   +9.5   AusNT   +9.5
  32. //  ZONE   +9.5B  SAus      +9.5     SAusS     +10.5    89/10/29:16  90/03/17:16
  33. //  ZONE   +9      GMT+9   +9
  34. //  ZONE   +9A      Mos+6   +9     MosS+6  +10    90/03/25:2   90/09/30:2
  35. //  ZONE   +9B      JST      +9
  36. //  REM  Duplicate entry for Japan
  37. //  ZONE   +8      GMT+8   +8
  38. //  ZONE   +8A      Mos+5   +8     MosS+5  +9    90/03/25:2   90/09/30:2
  39. //  ZONE   +8C      China   +8     ChinaS  +9    90/04/15:10  90/09/16:10
  40. //  ZONE   +7      GMT+7   +7
  41. //  ZONE   +7A      Mos+4   +7     MosS+4  +8    90/03/25:2   90/09/30:2
  42. //  ZONE   +6.5   GMT+6.5 +6.5
  43. //  ZONE   +6      GMT+6   +6
  44. //  ZONE   +6A      Mos+3   +6     MosS+3  +7    90/03/25:2   90/09/30:2
  45. //  ZONE   +5.75  Nepal   +5.75
  46. //  ZONE   +5.5   India   +5.5
  47. //  ZONE   +5      GMT+5   +5
  48. //  ZONE   +5A      Mos+2   +5     MosS+2  +6    90/03/25:2   90/09/30:2
  49. //  ZONE   +4.5   Afghn   +4.5
  50. //  ZONE   +4      GMT+4   +4
  51. //  ZONE   +4A      Mos+1   +4     MosS+1  +5    90/03/25:2   90/09/30:2
  52. //  ZONE   +3.5   Iran      +3.5
  53. //  ZONE   +3      GMT+3   +3
  54. //  ZONE   +3A      Mos.      +3     MosS     +4    90/03/25:2   90/09/30:2
  55. //  ZONE   +3B      Iraq      +3     IraqS     +4    90/04/01:1   90/10/01:1
  56. //  ZONE   +2      GMT+2   +2
  57. //  ZONE   +2A      EastEu  +2     EastEuS +3    90/03/25:2   90/09/30:2
  58. //  ZONE   +2B      Isr.      +2     IsrS     +3    90/04/22:1   90/09/02:1
  59. //  ZONE   +2C      Egypt   +2     EgyptS  +3    90/05/01:1   90/10/01:1
  60. //  ZONE   +2D      Jord.   +2     JordS     +3    90/04/06:1   90/10/05:1
  61. //  ZONE   +2E      Leb.      +2     LebS     +3    90/05/01:1   90/10/16:1
  62. //  ZONE   +2F      Syria   +2     SyriaS  +3    90/03/15:1   90/11/01:1
  63. //  ZONE   +1      GMT+1   +1
  64. //  ZONE   +1A      CentEu  +1     CentEuS +2    90/03/25:2   90/09/30:2
  65. //  ZONE   +1B      Libya   +1     LibyaS  +2    90/04/01:2   90/10/01:2
  66. //  ZONE   GMT      GMT       0
  67. //  ZONE   Z      Z       0
  68. //  ZONE   +0A      WestEu   0     WestEuS +1    90/03/25:2   90/09/30:2
  69. //  ZONE   UKT      GMT       0     BST     +1    90/03/25:1   90/10/28:1
  70. //  ZONE   -1A      GMT-1   -1     GMT      0    90/03/25:2   90/09/30:2
  71. //  ZONE   -2      GMT-2   -2
  72. //  REM  This zone currently has no entries
  73. //  ZONE   -2A      FdNor   -2     FdNor-S -1    89/10/15:6   90/02/11:6
  74. //  ZONE   -3      GMT-3   -3
  75. //  ZONE   -3A      GMT-3   -3     GMT-2     -2    90/03/25:2   90/09/30:2
  76. //  ZONE   -3B      Rio      -3     Rio-S     -2    89/10/15:6   90/02/11:6
  77. //  ZONE   -3C      Uru      -3     Uru-S     -2    89/10/29:6   90/03/04:6
  78. //  ZONE   -3D      Arg      -3     Arg-S     -2    89/10/15:6   90:03/04:6
  79. //  ZONE   -3E      SP/Mi   -3     SP/Mi-S -2    90/04/01:6   90/10/28:6
  80. //  ZONE   NFD      Nfd      -3.5     Nfd DT  -2.5    90/04/01:6   90/10/28:6
  81. //  ZONE   -4      GMT-4   -4
  82. //  ZONE   AT      AST      -4     ADT     -3    90/04/01:6   90/10/28:6
  83. //  ZONE   -4B      Falk      -4     FalkS     -3    89/09/10:7   90/04/22:7
  84. //  ZONE   -4C      Chile   -4     ChilS     -3    89/10/15:7   90/03/11:7
  85. //  ZONE   -4D      Para.   -4     ParaS     -3    89/10/22:7   90/04/01:7
  86. //  ZONE   -4E      Berm.   -4     BermS     -3    90/04/01:6   90/10/28:6
  87. //  ZONE   -4F      BrazW   -4     BrazW-S -3    89/10/15:6   90/02/11:6
  88. //  ZONE   -5      GMT-5   -5
  89. //  ZONE   EST      EST      -5
  90. //  REM  Some entries in this zone have been transferred to ZONE "-5"
  91. //  ZONE   ET      EST      -5     EDT     -4    90/04/01:7   90/10/28:7
  92. //  ZONE   -5B      Cuba      -5     CubaS     -4    90/03/18:7   90/10/07:7
  93. //  ZONE   -5C      Peru      -5     PeruS     -4    90/01/01:7   90/04/10:7
  94. //  ZONE   -5E      Carib.  -5     CaribS  -4    90/04/01:7   90/10/28:7
  95. //  REM  A few Caribbean countries that observe DST on U.S. dates
  96. //  ZONE   -6      GMT-6   -6
  97. //  ZONE   CST      CST      -6
  98. //  REM  Some entries in this zone have been transferred to ZONE "-6"
  99. //  ZONE   CT      CST      -6     CDT     -5    90/04/01:8   90/10/20:8
  100. //  ZONE   -6C      Eas.I.  -6     Eas.I.S -5    89/10/15:7   90/03/11:7
  101. //  ZONE   -7      GMT-7   -7
  102. //  ZONE   MST      MST      -7
  103. //  ZONE   MT      MST      -7     MDT     -6    90/04/01:9   90/10/28:9
  104. //  ZONE   -8      GMT-8   -8
  105. //  ZONE   PT      PST      -8     PDT     -7    90/04/01:10  90/10/28:10
  106. //  ZONE   -9      GMT-9   -9
  107. //  ZONE   AKT      AkST      -9     AkDT     -8    90/04/01:11  90/10/28:11
  108. //  ZONE   -9.5   Marq.I. -9.5
  109. //  ZONE   -10      GMT-10  -10
  110. //  ZONE   -10B   CookI   -10     CookIS  -9.5    89/10/29:12  90/03/04:11
  111. //  ZONE   HST      HST      -10
  112. //  ZONE   ALUT   AluST   -10     AluDT     -9    90/04/01:12  90/10/28:12
  113. //  ZONE   -11      GMT-11  -11
  114. //  ZONE   -12      GMT-12  -12
  115.  
  116. //      Tokyo       9 hours     (Do not precede positive numbers with
  117. //      Hong Kong      8 hours      a plus sign during configuration.)
  118. //      Beijing      8 hours
  119. //      Jakarta      8 hours
  120. //      Bombay      5.5 hours
  121. //      Karachi      5 hours
  122. //      Moscow      3 hours
  123. //      Nairobi      3 hours
  124. //      Riyadh      3 hours
  125. //      Cairo       2 hours
  126. //      Johannesburg      2 hours
  127. //      Rome          1 hours
  128. //      Paris       1 hours
  129. //--->      GREENWICH      0 hours    <---   (0 degrees longitude)
  130. //      Dakar       0 hours
  131. //      Reykjavic      0 hours
  132. //      Caracas     -4 hours    (Use the minus sign during configuration.)
  133. //      New York     -5 hours
  134. //      Chicago     -6 hours
  135. //      Mexico City     -6 hours
  136. //      Denver     -7 hours
  137. //      San Francisco  -8 hours
  138. //      Anchorage     -9 hours
  139. //      Honolulu     -10 hours
  140.  
  141. //******** SET TIMEZONE *******************************************************
  142.  
  143.     //Pacific Daylight time is - 7 hours
  144.     //Pacific Standard time is - 8 hours
  145.  
  146.     timezone = -7;
  147.  
  148. //*****************************************************************************
  149.  
  150.     // Initialize variables
  151.     startdtmo="04-";   // starting month of daylight saving time
  152.     startdtdy="01-";   // starting day of daylight saving time
  153.     stopdtmo="10-";    // ending month of daylight saving time
  154.     stopdtdy="28-";    // ending day of daylight saving time
  155.  
  156.     error=1;        //Indicates that time info is yet to be decoded properly
  157.     err_test=-1;    //Used to detect if time info is properly recieved
  158.     hi_hour=-1;     //Receives hi byte of hour time info
  159.     lo_hour=-1;     //Receives lo byte of hour time info
  160.     hi_min=-1;        //Recieves hi byte of minute time info
  161.     lo_min=-1;        //Receives lo byte of minute time info
  162.     hi_sec=-1;        //Receives hi byte of second time info
  163.     lo_sec=-1;        //Recieves lo byte of second time info
  164.     julian1=-1;
  165.     julian2=-1;
  166.     julian3=-1;
  167.     julian4=-1;
  168.     julian5=-1;
  169.     _alarm_on = 0;
  170.     _sound_on = 0;
  171.  
  172.     //Show opening TIMESET display
  173.     clear_scr();
  174.     prints("");
  175.     prints("");
  176.     prints("Welcome to Timeset!!!");
  177.     prints("Now dialing The Naval Observertory for the time...");
  178.  
  179.     //Dial for the time
  180.     set_cparams(1200,0,8,1);
  181.     if(!dial("m1-202-653-0351",10))
  182.     {
  183.     prints("Can not contact the Naval Observatory! Aborting.");
  184.     _alarm_on = 0;
  185.     _sound_on = 0;
  186.     tone(300,1);
  187.     return;        //After 10 tries can't reach the time.  Abort.
  188.     }
  189.  
  190.     // Decode the modified Julian time info received
  191.     while(error)
  192.     {
  193.  
  194.     if(!waitfor("UTC",10))
  195.       {
  196.         prints("Timeout error, aborting!");
  197.         hangup();
  198.         _alarm_on = 0;
  199.         _sound_on = 0;
  200.         r